home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Online / SpeakFreely / src / blowfish / bf_cbc.c next >
C/C++ Source or Header  |  2000-05-18  |  5KB  |  149 lines
  1. /* crypto/bf/bf_cbc.c */
  2. /* Copyright (C) 1995-1997 Eric Young (eay@mincom.oz.au)
  3.  * All rights reserved.
  4.  *
  5.  * This package is an SSL implementation written
  6.  * by Eric Young (eay@mincom.oz.au).
  7.  * The implementation was written so as to conform with Netscapes SSL.
  8.  * 
  9.  * This library is free for commercial and non-commercial use as long as
  10.  * the following conditions are aheared to.  The following conditions
  11.  * apply to all code found in this distribution, be it the RC4, RSA,
  12.  * lhash, DES, etc., code; not just the SSL code.  The SSL documentation
  13.  * included with this distribution is covered by the same copyright terms
  14.  * except that the holder is Tim Hudson (tjh@mincom.oz.au).
  15.  * 
  16.  * Copyright remains Eric Young's, and as such any Copyright notices in
  17.  * the code are not to be removed.
  18.  * If this package is used in a product, Eric Young should be given attribution
  19.  * as the author of the parts of the library used.
  20.  * This can be in the form of a textual message at program startup or
  21.  * in documentation (online or textual) provided with the package.
  22.  * 
  23.  * Redistribution and use in source and binary forms, with or without
  24.  * modification, are permitted provided that the following conditions
  25.  * are met:
  26.  * 1. Redistributions of source code must retain the copyright
  27.  *    notice, this list of conditions and the following disclaimer.
  28.  * 2. Redistributions in binary form must reproduce the above copyright
  29.  *    notice, this list of conditions and the following disclaimer in the
  30.  *    documentation and/or other materials provided with the distribution.
  31.  * 3. All advertising materials mentioning features or use of this software
  32.  *    must display the following acknowledgement:
  33.  *    "This product includes cryptographic software written by
  34.  *     Eric Young (eay@mincom.oz.au)"
  35.  *    The word 'cryptographic' can be left out if the rouines from the library
  36.  *    being used are not cryptographic related :-).
  37.  * 4. If you include any Windows specific code (or a derivative thereof) from 
  38.  *    the apps directory (application code) you must include an acknowledgement:
  39.  *    "This product includes software written by Tim Hudson (tjh@mincom.oz.au)"
  40.  * 
  41.  * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
  42.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  43.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  44.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  45.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  46.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  47.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  48.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  49.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  50.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  51.  * SUCH DAMAGE.
  52.  * 
  53.  * The licence and distribution terms for any publically available version or
  54.  * derivative of this code cannot be changed.  i.e. this code cannot simply be
  55.  * copied and put under another distribution licence
  56.  * [including the GNU Public Licence.]
  57.  */
  58.  
  59. #include "blowfish.h"
  60. #include "bf_locl.h"
  61.  
  62. void BF_cbc_encrypt(in, out, length, ks, iv, encrypt)
  63. unsigned char *in;
  64. unsigned char *out;
  65. long length;
  66. BF_KEY *ks;
  67. unsigned char *iv;
  68. int encrypt;
  69.     {
  70.     register BF_LONG tin0,tin1;
  71.     register BF_LONG tout0,tout1,xor0,xor1;
  72.     register long l=length;
  73.     BF_LONG tin[2];
  74.  
  75.     if (encrypt)
  76.         {
  77.         n2l(iv,tout0);
  78.         n2l(iv,tout1);
  79.         iv-=8;
  80.         for (l-=8; l>=0; l-=8)
  81.             {
  82.             n2l(in,tin0);
  83.             n2l(in,tin1);
  84.             tin0^=tout0;
  85.             tin1^=tout1;
  86.             tin[0]=tin0;
  87.             tin[1]=tin1;
  88.             BF_encrypt(tin,ks,BF_ENCRYPT);
  89.             tout0=tin[0];
  90.             tout1=tin[1];
  91.             l2n(tout0,out);
  92.             l2n(tout1,out);
  93.             }
  94.         if (l != -8)
  95.             {
  96.             n2ln(in,tin0,tin1,l+8);
  97.             tin0^=tout0;
  98.             tin1^=tout1;
  99.             tin[0]=tin0;
  100.             tin[1]=tin1;
  101.             BF_encrypt(tin,ks,BF_ENCRYPT);
  102.             tout0=tin[0];
  103.             tout1=tin[1];
  104.             l2n(tout0,out);
  105.             l2n(tout1,out);
  106.             }
  107.         l2n(tout0,iv);
  108.         l2n(tout1,iv);
  109.         }
  110.     else
  111.         {
  112.         n2l(iv,xor0);
  113.         n2l(iv,xor1);
  114.         iv-=8;
  115.         for (l-=8; l>=0; l-=8)
  116.             {
  117.             n2l(in,tin0);
  118.             n2l(in,tin1);
  119.             tin[0]=tin0;
  120.             tin[1]=tin1;
  121.             BF_encrypt(tin,ks,BF_DECRYPT);
  122.             tout0=tin[0]^xor0;
  123.             tout1=tin[1]^xor1;
  124.             l2n(tout0,out);
  125.             l2n(tout1,out);
  126.             xor0=tin0;
  127.             xor1=tin1;
  128.             }
  129.         if (l != -8)
  130.             {
  131.             n2l(in,tin0);
  132.             n2l(in,tin1);
  133.             tin[0]=tin0;
  134.             tin[1]=tin1;
  135.             BF_encrypt(tin,ks,BF_DECRYPT);
  136.             tout0=tin[0]^xor0;
  137.             tout1=tin[1]^xor1;
  138.             l2nn(tout0,tout1,out,l+8);
  139.             xor0=tin0;
  140.             xor1=tin1;
  141.             }
  142.         l2n(xor0,iv);
  143.         l2n(xor1,iv);
  144.         }
  145.     tin0=tin1=tout0=tout1=xor0=xor1=0;
  146.     tin[0]=tin[1]=0;
  147.     }
  148.  
  149.